home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / ALPHA.PLOT.SHK / ALPHA.PLOT / BEAGLE NEWS.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  24 lines
  1. 10 ND = 18 +1: DIM A$(ND): GOSUB 30: TEXT : PRINT  CHR$(21): HOME : NORMAL : SPEED= 255: FOR V = 0 TO ND: INVERSE : VTAB V +1 + SGN(V): PRINT  SPC( 40): FOR J = 1 TO 99: NEXT : NORMAL : FOR H = 40 TO 1  STEP  -3: CALL  -998: HTAB H: PRINT  LEFT$(A$(V),41 -H);: NEXT : NEXT 
  2. 15  PRINT "TYPE " CHR$(34)"RUN FLY MENU" CHR$(34)" FOR A GOOD TIME."
  3. 20  END 
  4. 30 A$(0) = "BEAGLE BROS APPLE DISKS   SEPTEMBER 1984"
  5. 40 A$(1) = "ALPHA PLOT...... HI-RES GRAPHICS..$39.50"
  6. 50 A$(2) = "APPLE MECHANIC.. HI-RES ANIMATION. 29.50"
  7. 60 A$(4) = "BEAGLE BAG...... 12 GREAT GAMES... 29.50"
  8. 70 A$(5) = "BEAGLE BASIC.... BASIC ENHANCER... 34.95"
  9. 75 A$(6) = "BEAGLE GRAPHICS. DOUBLE HI-RES ... 59.95"
  10. 80 A$(7) = "DISKQUIK........ DISK EMULATOR.... 29.50"
  11. 90 A$(8) = "DOS BOSS........ COMMAND EDITOR... 24.00"
  12. 100 A$(9) = "DOUBLE-TAKE..... 2-WAY SCROLLER... 34.95"
  13. 105 A$(10) = "FATCAT.......... DISK LIBRARY..... 34.95"
  14. 110 A$(11) = "FLEX TYPE....... FLEXIBLE TEXT.... 29.50"
  15. 120 A$(12) = "FRAME-UP........ APPLE SLIDE SHOWS 29.50"
  16. 130 A$(13) = "GPLE............ APPLESOFT EDITOR. 49.95"
  17. 140 A$(14) = "PRONTO-DOS...... TRIPLE-SPEED DOS. 29.50"
  18. 150 A$(15) = "SILICON SALAD... TIPS & UTILITIES. 24.95"
  19. 160 A$(16) = "TIP DISK #1..... 100 TIPS ON DISK. 20.00"
  20. 165 A$(17) = "TRIPLE-DUMP..... PICTURE PRINTER.. 39.95"
  21. 170 A$(3) = "A.M.TYPEFACES... 26 MECHANIC FONTS 20.00"
  22. 180 A$(18) = "UTILITY CITY.... 21 UTILITIES..... 29.50"
  23. 190 A$(19) = "                                        "
  24. 220  RETURN